From 10a2c7d0fcf2a7692f0123207012e6af7dc0dd23 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 19 May 2002 02:11:03 +0000 Subject: [PATCH] (uniquify-rationalize-file-buffer-names): Always strip the trailing / even if the file is not a directory. --- lisp/uniquify.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/uniquify.el b/lisp/uniquify.el index cd8b22303dc..448ce6f4744 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -199,9 +199,7 @@ file name elements. Arguments cause only a subset of buffers to be renamed." (setq bfn (if (eq buffer newbuf) (when newbuffile (expand-file-name - (if (file-directory-p newbuffile) - (directory-file-name newbuffile) - newbuffile))) + (directory-file-name newbuffile))) (uniquify-buffer-file-name buffer))) (setq rawname (uniquify-file-name-nondirectory bfn)) (or (not newbuffile) -- 2.30.2